home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / utils.arc / CHMOD.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-01-01  |  1.7 KB  |  31 lines
  1. 10 CLS:PRINT"This basic program was created by CONVERT.BAS":KEY OFF:DEFINT A-Z:FALSE=0:TRUE=NOT FALSE
  2. 20 PRINT"Copyright 1983 ,Rich Schinnell Rockville,MD. Not for Sale."
  3. 30 PRINT "This program will create  you a program named CHMOD.COM":PRINT
  4. 40 ON ERROR GOTO 5000
  5. 50 INPUT "PLACE the disk to write the file TO in Drive A: Press <ENTER> "; CAPITAL$
  6. 90 CLS:LOCATE 12,5:PRINT "Now writing file named CHMOD.COM standby please  "
  7. 100 RESTORE
  8. 110 OPEN "R", #1,"CHMOD.COM",1
  9. 120 FIELD #1, 1 AS N$
  10. 130 READ N:LL=(N/28)+1
  11. 140 FOR I = 1 TO N
  12. 150 READ X$,CHECK:FOR C=1 TO LEN(X$) STEP 2:CC$="&H"+MID$(X$,C,2):IF CHECK=9999 THEN 170
  13. 155 LSET N$=CHR$(VAL(CC$)):PUT #1:CHECK=CHECK-VAL(CC$):NEXT C:IF CHECK<>0 THEN 5000
  14. 160 LOCATE 14,5:PRINT TIME$;" Reading data line #";(1000+I);" lines left=";LL-I;:NEXT I:CLOSE
  15. 170 LOCATE 16,5:PRINT "CHMOD.COM CREATED * *":GOTO 5010
  16. 1000 DATA  258
  17. 1001 DATA FC33ED8A0E800032EDB020BF8100F3AE83F90074658D55FFF2AE7557,3750
  18. 1002 DATA C645FF00F3AE8D5DFF880E8000803E8000007C298A073C20741CB910,2771
  19. 1003 DATA 00BF8301F2AE750D81EF8401B90400D3E503EFEB05BA9301EB2B43FE,3414
  20. 1004 DATA 0E8000EBD0B801438BCDCD21730F3D02007505BAC201EB03BAD401EB,2987
  21. 1005 DATA 0CEB05BAAC01EB05EB07BAAC01B409CD21CD20303132333435363738,2584
  22. 1006 DATA 3941424344444707496C6C6567616C20484558206368617261637465,2287
  23. 1007 DATA 720A0D2407546F6F2066657720706172616D65746572730A0D240746,2084
  24. 1008 DATA 696C65206E6F7420666F756E640A0D24074163636573732064656E69,2363
  25. 1009 DATA 6564202D2070726F6261626C7920696C6C6567616C20617474726962,2609
  26. 1010 DATA 7574650A0D24,393
  27. 1011 DATA 000000,9999
  28. 5000 PRINT "* * ERROR VERIFY FOLLOWING DATA * * * "
  29. 5005 PRINT X$;",";CHECK
  30. 5010 KEY ON:CLOSE:END
  31.